No real need for a Perl script here.

    alias frequency='sort | uniq -c'

Also, this should probably use exec.

    system(". cdto '@row'") ;
    exit ;

Otherwise, you are needlessly keeping Perl on your stack.