不能使用未定义的值作为符号perl

我正在尝试在文件中写入从数组中获取的一些值.但我有一些错误”不能使用未定义的变量作为…第81行的符号引用：

foreach $k (sort keys %{$value2}){
    print $value4 $k." = ".%{$value2{$k}}. $value3;



sub printit{
  $value1 = $_[0];#"ipadress" is a String
  $value2 = $_[1];#%hash2
  $value3 = $_[3];#"paquet" is a String
  $value4 = $_[4];#sourcE is the file name

  foreach $k (sort keys %{$value2}){
    print $value4 $k." = ".%{$value2{$k}}. $value3;
    if (%{$value2{$k}} >= 2) { print $value4 "s";}
    print $value4 "\n";
  }
}

printit('ipadress',\%hash2,' paquet'. sourcE );

有人可以指出我有什么问题吗？

事情是我的代码是这一个,它工作正常.而且我没有连同sourcE并且它仍然正常工作.

print sourcE "Ipadress #2\n\n";
foreach $k (sort keys %hash2){
  print sourcE $k." = ".$hash2{$k}." paquet";
  if ($hash2{$k} >= 2) { print sourcE "s";}
  print sourcE "\n";
}

但我有很多代码可以做同样的事情所以我想创建一个能够减少行数的函数.

print $value4 $k." = ".%{$value2{$k}}. $value3;

open my $fh,'>',$value4 or die "Could not open file $value4: $!";
...
print { $fh } $k." = ".%{$value2{$k}}. $value3;