C:\test>perl -e"print 'x' x 1024 . '~' for 1..37*1024; print 'x'" > huge.file

C:\test>dir huge.file
18/03/2010  23:58        38,835,201 huge.file

C:\test>\perl32\bin\perl -e" @{ $h{lines } } = split'~', <>" huge.file