You might want to chomp the filename to get rid of the line terminator so as to avoid headaches with "file not found" errors.

use strict;
use warnings;

use 5.010;

my $prompt = q{Plz enter file: };

print $prompt;
my $file1 = <STDIN>;
say for map sprintf( q{%#04x - >%s<}, ord, $_ ), split m{}, $file1;

print $prompt;
chomp( my $file2 = <STDIN> );
say for map sprintf( q{%#04x - >%s<}, ord, $_ ), split m{}, $file2;
[download]

Running it produces:

$ ./spw822114
Plz enter file: xyz.c
0x78 - >x<
0x79 - >y<
0x7a - >z<
0x2e - >.<
0x63 - >c<
0x0a - >
<
Plz enter file: xyz.c
0x78 - >x<
0x79 - >y<
0x7a - >z<
0x2e - >.<
0x63 - >c<
$
[download]

I hope this is of interest.