print "\nACT:\n";
print Dumper($a_lines_act[$s_act_line]);
print "\nEXP:\n";
print Dumper($a_lines_exp[$s_exp_line]);
print "\n";

      if($a_lines_act[$s_act_line] ne $a_lines_exp[$s_act_line]) {
        # Die einzelnen Records (als ganzes) sind unterschiedlich
        print "Record with key \"$s_key\" is different\n";
        printf (" Actual   line %03d > $a_lines_act[$s_act_line] <\n",$s_act_line +1);
        printf (" Expected line %03d > $a_lines_exp[$s_exp_line] <\n",$s_exp_line +1);

ACT:
$VAR1 = '200101900;200101901;3;;;;;;;;;22';

EXP:
$VAR1 = '200101900;200101901;3;;;;;;;;;22';

Record with key "200101901" is different
 Actual   line 008 > 200101900;200101901;3;;;;;;;;;22 <
 Expected line 016 > 200101900;200101901;3;;;;;;;;;22 <