#!/usr/bin/perl -w
use strict;

my @names = ("Ann","John","Michael","George","Smith");

my $prev_name;
for my $name (@names) {
    print "$prev_name $name\n" if defined $prev_name;
    $prev_name = $name;
}

##</code><code>##

Ann John
John Michael
Michael George
George Smith