Perl script to make random profiles