This was the code giving me errors on Perl.
...
else if (exists($framename{$presFrame}) && (($framename{$presFrame}) < = $j))
...
framename
presFrame
framename
I think you mean:
elsif (exists($framename{$presFrame}) && (($framename{$presFrame}) <= $j))
otherwise you'd need braces on the else clause, i.e.
else {
if(...) {
...
}
}