Perhaps you'd prefer this version

#!/usr/bin/perl 
seek DATA,0,0;while(<DATA>){@_=split'',$_;push @JAPH,[@_]}for(split/;/
,'1,48;1,43;1,44;1,35;1,4;4,20;4,24;4,14;1,35;1,45;1,1;4,15;1,4;1,50;1
,1;4,15;1,17;1,4;1,45;4,20;4,17;1,3;1,1;4,15;1,9'){@_=split /,/,$_;@_,
push @n,[@_]}for$c(@a..@n-1){print $JAPH[$n[$c][0]][$n[$c][1]]}__END__
[download]