...
my @Test;
my $Test;

@Test=encode("cp1250",@Test);
...