sub DeleteLast($)
{
 pop @{$_[0]};
};

##</code><code>##

my @Tmp=(1..10);
print "@Tmp\n";
sub DeleteLast($)
{
 pop @{$_[0]};
};
DeleteLast(\@Tmp);
print "@Tmp\n";