Select Code to Download

#! perl -slw
use strict;
...
                $ref->[$l++]= $ref->[$r++];
        }
    }

    $#$ref=$l-1
}
...
print scalar @a;
#print "@a";