#!/usr/bin/env perl
use warnings;
use strict;

print "enter sequence and signal end with enter followed by ctrl d\n";
my $sequence = <STDIN>;
chomp $sequence;
print "sequence inserted : $sequence\n";
my @trips = unpack("a3" x (length($sequence)-2), $sequence);
local $" = ", ";
print "unshuffled: (@trips)\n";
use List::Util 'shuffle';
my @shuffled = shuffle(@trips);
print "shuffled: (@shuffled)\n"; 
__END__