chomp(my $input = <STDIN>);
my $kinda_secret = get_data($input);
if(defined $kinda_secret) {
  print 'Your secret is: ', $kinda_secret
}
else {
  print 'No soup for you'
}

sub get_data {
  my $input = shift;
  open my $fh, '<', 'data.file' or return;
  my $retval;
  while(<$fh>) {
    if(/^$input:(.+?)$/) {
      $retval = $1;
      last
    }
  }
  close $fh;

  $retval
}