Array Perl

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