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);