#!/usr/bin/perl
use Benchmark;

@one   = ('a' x 100);
@two   = ('a' x 1000);
@three = ('a' x 10000);

timethese( 100000, {
                     'rev 100'    => sub { reverse @one   },
                     'rev 1000'   => sub { reverse @two   },
                     'rev 10000'  => sub { reverse @three },
                   }
         );