sub print_entries { print "$original_x\n"; }