{ 
  my $last = 5;
   sub do_stuff {
       my $arg = @_;
         if ( $arg == $last ) {
             print "You called me twice in a row with $arg\n";
         }
     $last = $arg;
    }
}
do_stuff($_) for 0..5;