<>;@c=<>=~/\d+/g;
$i=0;
while($i<$#c){
	if($i>=0&&$c[$i]>$c[$i+1]){
		$j=$i+1;
		@c[$i,$j]=@c[$j,$i];
		push@m,"$i $j\n";
		--$i;
	}else{
		++$i;
	}
}
print@m.$/,@m;
<>