pop

#!/usr/bin/env perl

my @array = ("principio","medio","final");

print "@array\n";

pop(@array);

print "@array\n";