system("lpstat -v -d -p -l -D >junk.txt");
open RI,"<junk.txt" || die "Can't open junk.txt for reading:$!\n";

my $data = do { local $/; <RI> }; # or however you load it.

my( %device, %system );

for ( split /\n(?=\S)/, $data )
{
  if( /^device for (.*?):.*?\1$/  )
  {
  
      $device{$1} = $1;
  }
  elsif ( /^system for (.*?): (\S+)/ )
  {
    $system{$1} = $2;
  }