sub print_value {
  my $value = shift;
  print $value;
}

my $var1 = "value in var1\n";
my $var2 = "value in var2\n";

print_value($var1);
print_value($var2);