#!/usr/bin/perl

###=- Unpack Vector Weirdness

use strict; 

sub string { 
	return (reverse (unpack ('b8', $_[0])))
}

sub showoff { 
	my $vec = shift;
	my $str; 
	
  	warn 'vvv';
  	warn string($vec);
  	warn ($str = string($vec));
  	warn '^^^';
} 

for my $pass (0..7) { 
	my $vec = int(rand(200));
	showoff $vec;
}