($k,$v) = (split /\s+/,$_)[2,4];


##</code><code>##


my ($snap, $rotation) = (split)[2,4];