TAG     snapshot  snap-162c4c78   Name    rotation-snap-msgin-msginvol-vol-28fb2141-1306254741
TAG     snapshot  snap-182ce47a   Name    rotation-snap-msgin-msginvol-vol-22fb2a40-1306253728
TAG     snapshot  snap-3e02ee50   Name    rotation-snap-util-backupvol-vol-11cb3d7a-1307246947
TAG     snapshot  snap-133c4c7e   Name    rotation-snap-msgin-msginvol-vol-28fb2140-1306254729
TAG     snapshot  snap-112ae52a   Name    rotation-snap-msgin-msginvol-vol-28fb2140-1307254721
TAG     snapshot  snap-2e0a6e5f   Name    rotation-snap-util-backupvol-vol-14ca3d7a-1308456945

##</code><code>##

my %snapshot_roster = map {
      ($k,$v) = (split /\s+/,$_)[2,4];
      strip_stamp($v) => [ $k, $v ];          
   } @snapshot_listing;

sub strip_stamp
{
   /-([\d]+)$/ and return $1;
}


##</code><code>##

   $v=~/-([\d]+)$/ ? $1 : undef => [ $k, $v ];