#!/usr/bin/perl

use warnings;
use strict;

$\ = $/;

sub sort_sub{
	return $a cmp $b;
	}

sub some_sub{
	my $ref = shift;
	print "@{ $ref }";
	
	for my $i ( 0 .. @{ $ref } - 2 ){
		$ref->[ $i ] cmp $ref->[ $i + 1 ] and do { ;;; };
	}
}