Help compare arrays in Perl

[LuckyTaxi]

It prints all values in @r_packages when it should print "Missing: NOWAY"


#!/usr/bin/perl

my @r_packages = ("basesystem", "NOWAY", "glibc");

my @packages = `rpm -qa --qf '%{NAME}\n'`;

my %r_packages=map{$_ =>1} @r_packages;
my %packages=map{$_=>1} @packages;

my @missing=grep(!defined $packages{$_}, @r_packages);

print "Missing:\t$_\n" foreach (@missing);

 

[LuckyTaxi]

figured it out, i had to add "chomp(@packages)"