Perl Project to use GRIN data