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