#!/usr/bin/perl -s

use strict;
use Data::Dumper;

my @x = qw(a c e g);
my $var = {'a'=>"z", 'b'=>"y", 'c'=>"x", 'd'=>"w", 'e'=>"v", 'f'=>"u", 'g'=>"t", 'h'=>"s"};
my $y = "e";
while($var->{$y} = shift @x){
    print "$y = $var->{$y}\n";
    $y = $var->{$y};
}

die Dumper($var);