Select Code to Download

#!/usr/bin/perl

...
Anand,3,4,4,4,ert
seetha,1,2,3,4,rew
Anand,2,2,2,2,tre

$VAR1 = {
          'seetha' => [
...
                       'tre'
                     ]
        };