$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print ~~@array'
7

$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print -(-@array)'
7

$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print 0+@array'
7

$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print 1*@array'
7

$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print @array/1'
7

$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print @array-0'
7

$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print @array x1'
7

$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print @array%~0'
7

$ perl -le'my @array = qw/1 2 3 4 5 6 7/; print @array**1'
7