{
   no strict 'refs';
   $somestring =~ m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/;
   $result = ${$matchnum};
}

##</code><code>##

push @sps, (m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/)[$columnNumber];