#!/usr/bin/perl

use strict;
use warnings;

my @things = qw /foo bar baz/;

sub do_print {
    print "@things\n";
}

sub show {
    local $things[1] = 'qux';
    do_print;
}

show;
do_print;
__END__
foo qux baz
foo bar baz