@bitter = `ssh serverlist 'ls -ltr'`
foreach (@bitter) {

        my($first,$second) = split(/=/);
        $bright->{$variable}{$first} = $second;
        $printer{$variable} = 1;
}