Select Code to Download

#!/usr/bin/perl -w

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