perl map  and grep functinality 
@array = ( 'hai','hello','bar','foo' ) ;
    
      print grep (/hai/ , @array );
      print grep ("hai",@array ) ;
      print map (/hai/ , @array );
      print map ("hai",@array ) ;

What above code does actually.......? 

Thanks 
perl map  and grep functinality 
===

@array = ( 'hai','hello','bar','foo' ) ;
    
      print grep (/hai/ , @array );
      print grep ("hai",@array ) ;
      print map (/hai/ , @array );
      print map ("hai",@array ) ;

What above code does actually.......? 

Thanks 