hr in Perl