#!/usr/bin/perl -w

my @data = qw/1 2 3 4 5/;
print "Data is " . join ( ":", @data ) . "\n";

@data = reverse @data;
my $foo = pop @data;
@data = reverse @data;
print "Data is " . join ( ":", @data ) . "\n";

@data = reverse @data;
push ( @data, 17 );
@data = reverse @data;
print "Data is " . join ( ":", @data ) . "\n";