Mega Code Archive

 

Categories / Perl / Array

 

$s = pop @{[@a]}

@a = (1, 2, 3); $s = pop @{[@a]}; print "@a\n";