print_foo($foo1);
print_foo($foo2);
print_foo($foo3);
print_foo($foo4);
print_foo($foo5);

sub print_foo {
    my ($var) = @_;
    print "$var\n";
}