use File::Copy qw/move/;

move($_, $_ . '.HID') for <*>;