Hi!,

It could be that you make a copy of the array that you are
referencing to, and delete the last element of that one...

Try this:

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

This pops the last element of the array you are referencing to...

Testcase:

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

Output:
martijn@xxx-test$ ./tst
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9

GreetZ!,

ChOas

p.s. Prototype declaration is not needed, I`m originally a C/C++ programmer,
and it`s just something I do... (it`s the only C-ish thing I still do in Perl nowadays ;))

print "profeth still\n" if /bird|devil/;