#!/usr/bin/perl -w
use strict;

print_args( 123, 456, 789 );

sub print_args {
  tamper_args( 'All your arguments are belong to us.' );
  print "My arguments were: " .  join(', ', @_) . "\n";
}

sub tamper_args {
  local @_ = ( 'This is not a potato.' );
}