メモリ節約のため必要なときにrequireするようにしたいのですが

main.pl
$val{'mess'} = "hello world\n";
if (1) {
require ''sub.pl";
messprint();
}
---------------------
sub.pl

sub messprint {
print $val{'mess'};
}
1;
---------------------
このように書くとうまく動作しません
どのように記述すればうまくうごくようになるのでしょうか