39

39.pl

#!/usr/bin/env perl

use strict;
use warnings;

my @array;

for my $i (1..10){
  push @array, $i;
}

my $i = $array[0];
$array[0] = $array[-1];
$array[-1] = $i;
print @array;