use Encode qw/encode decode/;

my $datei = 'C:\Users\Hago\AAProjekte\Hofgut-o\AlleListen_2015\preisliste_G1.csv';
my $temp = 'C:\Users\Hago\AAProjekte\Hofgut-o\AlleListen_2015\preisliste_G.csv';
  open(my $alt,'<:encoding(iso-8859-2)',$datei) or die("Mist 1");
  open(my $neu,'>:encoding(UTF-8)',$temp) or die("Mist 2");

while (<$alt>) {
   print $neu $_;
}