Select Code to Download

#!/usr/bin/env perl -l

...
sub print_vals { print "@{$_[0]}{1..3}" }

sub load_vals { @{$_[0]}{1..3} = qw{X Y Z} }

term1 term2 term3
A term2 term3
...
A B C
X Y Z
D E F