sorts ls results by permission - Useful for finding similar files or folders

lsSortByPermission.pl

#! /usr/bin/perl

my @entries = reverse sort by_first_column `ls -la @ARGV`;
print @entries;

sub by_first_column{
	(my $a1 = $a) =~ s/^[\s]*([\S]+).+$/$1/;
	(my $b1 = $b) =~ s/^[\s]*([\S]+).+$/$1/;
	return $a1 cmp $b1;
}