$data = 'foo' x (1024*1024) ;
&test(\$data) ;

sub test {
  my ( $datarf ) = @_ ;  
  if ( $$datarf =~ /foo/s ) { print "bar\n" ;}
};