package Raindrops;
use strict;
use warnings;
use Exporter qw<import>;
our @EXPORT_OK = qw<raindrop>;

sub raindrop {
  my ($number) = @_;
  my $result = '';
  $result .= 'Pling' unless $number % 3;
  $result .= 'Plang' unless $number % 5;
  $result .= 'Plong' unless $number % 7;
  return $result ? $result : $number;
}

1;