#!/usr/bin/perl -w@array = (1,2,3,'red');print "Before: @array\n";@array = reverse(@array);print "After: @array\n";