#!/usr/bin/perl
# Example 1
# Examples of some string and array functions

$protein = 'DEFHGT';
@protein = split('', $protein);

@Work = @protein;

# Take the first element out of @Work
$char1 = shift @Work;
# Put the first element at the end of @Work
push(@Work, $char1);

# Take the first element out of @Work again
$char2 = shift @Work;

# Put it after the second element
splice(@Work, 2,0, $char2);

print "This is what we started with @protein.\n";
print "This is what we end with @Work\n";
exit;